{==============================================================================}
{  Acroprise Multi-Language Components                                         }
{                                                                              }
{  Copyright (C), 1999-2012, Acroprise Inc.                                    }
{  http://www.acroprise.com.tw                                                 }
{  ALL RIGHTS RESERVED                                                         }
{                                                                              }
{  Author   : Mustapha.Wang                                                    }
{  Version  : 4.1.15.2159                                                      }
{  Creation : 2002/05/06                                                       }
{  Revision :                                                                  }
{  Task     :                                                                  }
{==============================================================================}
unit acroDelphiDBClassMethod;
{$I acroMultiLang.Inc}
interface
uses
  Classes,acroMultiClassMethod,SysUtils,DB;

  procedure Proc_TDataSet(ATable:IDataLocate;AComponent:TObject;
    ALCID,ASeqNo:string;AParams:TStrings);

implementation

procedure Proc_TDataSet(ATable:IDataLocate;AComponent:TObject;
  ALCID,ASeqNo:string;AParams:TStrings);
var
  i:integer;
begin
  for i:=0 to TDataSet(AComponent).Fields.Count-1 do
  begin
    TDataSet(AComponent).Fields[i].DisplayLabel:=
      GetDisplayValue(ATable,TDataSet(AComponent).Fields[i].DisplayLabel,
        ALCID,ASeqNo,TDataSet(AComponent).Fields[i],'DisplayLabel');
  end;
end;

end.
